home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 August: Tool Chest / Dev.CD Aug 98 TC.toast / Tool Chest / Testing & Debugging / Virtual User / Virtual User Current Release / Examples / Example External Tools / MathTool / MathTool.vu < prev    next >
Encoding:
Text File  |  1998-06-04  |  2.3 KB  |  70 lines  |  [TEXT/MPS ]
  1. #
  2. #    File:        MathTool.vu
  3. #    
  4. #    Written by:    David Gaxiola, Automation Systems, STM, MSSW
  5. #
  6. #    Contents:    MathTool interface test script.
  7. #
  8. #    Copyright © 1992 Apple Computer, Inc.  All rights reserved.
  9. #
  10. #    Change history:
  11. #             8/11/92    DGG        Altered to use library
  12. #              8/3/92    DGG        Revised from earlier version.
  13. #            10/29/92    REM        Added a "Initialize" service call.
  14.  
  15. Libraries "MathTool.vulib";
  16.  
  17. script MathToolDemo(floatVals := {"1.5", "5.62"}, 
  18.                         longVals := {"22345223", "52223"},
  19.                         intVals := {"256", "16"})
  20. begin
  21.     global gPi;
  22.     global gE;
  23.     DefineMathGlobals();
  24.  
  25.     result := MathTool("Initialize", true);  # true - launch on the target
  26.  
  27.     x := MathTool("GetToolServices");
  28.     println x;
  29.     x := MathTool("GetToolVersion");
  30.     println x;        
  31.     
  32.     x := MathTool("fplus", floatVals[1], floatVals[2]);
  33.     y := MathTool("fminus", floatVals[1], floatVals[2]);
  34.     z := MathTool("ftimes", floatVals[1], floatVals[2]);
  35.     w := MathTool("fdivide", floatVals[1], floatVals[2]);
  36.  
  37.     l := MathTool("sqrt", intVals[1]);
  38.     m := MathTool("power", intVals[1], intVals[2]);
  39.     n := MathTool("ln", gE);
  40.  
  41.     a := MathTool("lplus", longVals[1], longVals[2]);
  42.     b := MathTool("lminus", longVals[1], longVals[2]);
  43.     c := MathTool("ltimes", longVals[1], longVals[2]);
  44.     d := MathTool("ldivide", longVals[1], longVals[2]);
  45.  
  46.     println "MathTool !!!∂n************";
  47.     println "School is now in session!∂n";
  48.     
  49.     println "Floating Point Ops∂n------------------";
  50.     println "fplus command: ",floatVals[1]," + ",floatVals[2]," = ", x[2];
  51.     println "fminus command: ",floatVals[1]," - ",floatVals[2]," = ", y[2];
  52.     println "ftimes command: ",floatVals[1]," * ",floatVals[2]," = ", z[2];
  53.     println "fdivide command: ",floatVals[1]," / ",floatVals[2]," = ", w[2];
  54.  
  55.     println "∂nLong Integer Ops∂n----------------";
  56.     println "lplus command: ",longVals[1]," + ",longVals[2]," = ", a[2];
  57.     println "lminus command: ",longVals[1]," - ",longVals[2]," = ", b[2];
  58.     println "ltimes command: ",longVals[1]," * ",longVals[2]," = ", c[2];
  59.     println "ldivide command: ",longVals[1]," / ",longVals[2]," = ", d[2];
  60.     
  61.     println "∂nOther Operations∂n----------------";
  62.     println "sqrt command: sqrt(",intVals[1],") = ", l[2];
  63.     println "power command: pow(",intVals[1],",",intVals[2],") = ", m[2];
  64.     println "log command: ln(",gE,") = ", n[2];
  65.     
  66.     x := MathTool("Quit");
  67.     println x;
  68.  
  69.     println "### All done!  Class dismissed!";
  70. end;